home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / DBL Pascal Library / INIT Shell Folder / INIT Example ƒ / ResCheck.p < prev   
Encoding:
Text File  |  1990-05-28  |  490 b   |  19 lines  |  [TEXT/PJMM]
  1. unit ResCheck;
  2. {Copyright © 1990, David B. Lamkins}
  3. {All rights reserved.}
  4.  
  5. interface
  6.  
  7.     function DangerousResource (theType: OSType; theID: INTEGER; theName: StringPtr; theHandle: Handle): BOOLEAN;
  8.  
  9. implementation
  10.  
  11.     function DangerousResource (theType: OSType; theID: INTEGER; theName: StringPtr; theHandle: Handle): BOOLEAN;
  12.         var
  13.             theSize: LONGINT;
  14.     begin
  15.         theSize := GetHandleSize(theHandle);
  16.         DangerousResource := (theType = 'WDEF') and (theID = 0) and (theSize = 1836);
  17.     end;
  18.  
  19. end.